home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03010_Script_3010 < prev    next >
Text File  |  1983-01-27  |  715b  |  16 lines
  1. on suonotori canale,fileaudio 
  2.   global qualelingua,qualefile,soundfile
  3.   if the machinetype < 255 then
  4.     set chedir to chars (the moviename,1 ,length (the moviename)-4)
  5.     set qualefile to "invenzioni:invenzio:tori:"&chedir&":"&fileaudio&qualelingua&".aif"
  6.     set soundfile to "invenzioni:invenzio:tori:"&chedir&":"&fileaudio&qualelingua&".aif"
  7.   else
  8.     set chedrive to char 1 of the moviepath
  9.     set chedir to chars (the moviename,1 ,length (the moviename)-4)
  10.     set qualefile to (chedrive&":\invenzio\tori\"&chedir&"\"&fileaudio&qualelingua&".aif")
  11.     set soundfile to (chedrive&":\invenzio\tori\"&chedir&"\"&fileaudio&qualelingua&".aif")
  12.   end if
  13.   sound playfile canale, qualefile
  14. end
  15.  
  16.